home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / amigatalk.lha / system / VeryDangerousDos.st < prev   
Text File  |  2001-12-31  |  3KB  |  73 lines
  1. "----------------------------------------------------------------------"
  2. " VeryDangerousDOS Class implements some of the most destructive       "
  3. " AmigaDOS functions into AmigaTalk.                                   "
  4. ""
  5. " WARNING:  You should know what you're doing to the Amiga OS before   "
  6. "           messing with this Class, or any other System Class!        "
  7. ""
  8. " Please read AmigaTalk:Help/ADos.guide for guidance on how to use the "
  9. " methods of this Class -- it's really getting hard to document each   "
  10. " AmigaTalk Class in two or more places!                               "
  11. " ---------------------------------------------------------------------"
  12.  
  13. Class VeryDangerousDOS :Object
  14. [
  15.    addSegment: bptrSegList named: segmentName useCount: count
  16.       ^ <primitive 249 0 segmentName bptrSegList count>
  17. |         
  18.    deleteFile: fileOrDirName
  19.       " WARNING!  WARNING!  Danger, Will Robinson! "
  20.       ^ <primitive 249 1 fileOrDirName>
  21. |         
  22.    doPacket: action onPort: msgPort arguments: argArray ! a1 a2 a3 a4 a5 !
  23.       a1 <- argArray at: 1.
  24.       a2 <- argArray at: 2.
  25.       a3 <- argArray at: 3.
  26.       a4 <- argArray at: 4.
  27.       a5 <- argArray at: 5.
  28.       ^ <primitive 249 2 msgPort action a1 a2 a3 a4 a5>
  29. |         
  30.    formatDisk: diskName on: volumeName type: dosType
  31.       " WARNING!  WARNING!  Danger, Will Robinson! "
  32.       ^ <primitive 249 3 diskName volumeName dosType>
  33. |         
  34.    internalLoadSegment: bptrFileHandle ovlyTable: bptrTable funcArray: fArray stackPtr: stack
  35.       ^ <primitive 249 4 bptrFileHandle bptrTable fArray stack>
  36. |         
  37.    internalUnLoadSegment: bptrSegList freeFuncPtr: freeFunc
  38.       ^ <primitive 249 5 bptrSegList freeFunc>
  39. |         
  40.    loadSegment: segmentName
  41.       ^ <primitive 249 6 segmentName>
  42. |         
  43.    newLoadSegment: fileName tags: tagArray
  44.       ^ <primitive 249 7 fileName tagArray>
  45. |
  46.    removeAssignList: assignmentName from: bptrLock
  47.       ^ <primitive 249 8 assignmentName bptrLock>
  48. |         
  49.    removeDosEntry: dosList
  50.       ^ <primitive 249 9 dosList>
  51. |         
  52.    removeSegment: segmentObject
  53.       ^ <primitive 249 10 segmentObject>
  54. |         
  55.    sendPacket: dosPacket to: msgPort replyTo: replyPort
  56.       <primitive 249 11 dosPacket msgPort replyPort>
  57. |         
  58.    setConsoleTask: msgPort
  59.       ^ <primitive 249 12 msgPort>
  60. |         
  61.    setFileSystemTask: msgPort
  62.       ^ <primitive 249 13 msgPort>
  63. |         
  64.    systemCommandTagList: commandString tags: tagArray
  65.       ^ <primitive 249 14 commandString tagArray>
  66. |         
  67.    unLoadSegment: bptrSegList
  68.       ^ <primitive 249 15 bptrSegList>
  69. |         
  70.    waitForPacket
  71.       ^ <primitive 249 16>
  72. ]
  73.